This notebook contains several tSNE plots of the 10x data.

library(Seurat)

Loading the data.

all10x <- readRDS('data/10x-normalized-scaled-clustered-tsne.rds')

Below are several tSNE plots of the 10x data. tSNE was performed on the first 15 principal components of the log-normalized scaled (nUMI and percent.mito regressed out) data.

TSNEPlot(all10x, pt.size=0.1, group.by='sample_name', do.label=T)

TSNEPlot(all10x, group.by='sample_name2', pt.size=0.1)

TSNEPlot(all10x, pt.size=0.1, group.by='res.0.1')

TSNEPlot(all10x, pt.size=0.1, group.by='res.0.2')

TSNEPlot(all10x, pt.size=0.1, group.by='res.0.5', do.label=T)

TSNEPlot(all10x, pt.size=0.1, group.by='res.0.8', do.label=T)

FeaturePlot(all10x, c("nGene"), cols.use = c("grey","blue"))

FeaturePlot(all10x, c("percent.mito"), cols.use = c("grey","blue"))

The cluster with the higher percentage of mitochondrial gene expression probably contains stressed cells. Among the top 10 marker genes for this cluster are two genes that code for heat shock proteins (HSPA5 and HSP90B1), so this confirms this I think.

FeaturePlot(all10x, c("nUMI"), cols.use = c("grey","blue"))

TSNEPlot(all10x, group.by='diff', pt.size=0.1)

TSNEPlot(all10x, group.by='ucp1.ctrl', pt.size=0.1)

TSNEPlot(all10x, group.by='ucp1.ne', pt.size=0.1)

TSNEPlot(all10x, group.by='bmi', pt.size=0.1)

TSNEPlot(all10x, group.by='age', pt.size=0.1)

#TODO:
#add grid tSNE plots, one cluster colored at a time (res.0.5 and res.0.8)

#c <- all10x@meta.data$res.0.5
#cluster_names <- unique(c)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBub3RlYm9vayBjb250YWlucyBzZXZlcmFsIHRTTkUgcGxvdHMgb2YgdGhlIDEweCBkYXRhLgoKYGBge3J9CmxpYnJhcnkoU2V1cmF0KQpgYGAKCkxvYWRpbmcgdGhlIGRhdGEuCgpgYGB7cn0KYWxsMTB4IDwtIHJlYWRSRFMoJ2RhdGEvMTB4LW5vcm1hbGl6ZWQtc2NhbGVkLWNsdXN0ZXJlZC10c25lLnJkcycpCmBgYAoKQmVsb3cgYXJlIHNldmVyYWwgdFNORSBwbG90cyBvZiB0aGUgMTB4IGRhdGEuIHRTTkUgd2FzIHBlcmZvcm1lZCBvbiB0aGUgZmlyc3QgMTUgcHJpbmNpcGFsIGNvbXBvbmVudHMgb2YgdGhlIGxvZy1ub3JtYWxpemVkIHNjYWxlZCAoblVNSSBhbmQgcGVyY2VudC5taXRvIHJlZ3Jlc3NlZCBvdXQpIGRhdGEuIAoKYGBge3J9ClRTTkVQbG90KGFsbDEweCwgcHQuc2l6ZT0wLjEsIGdyb3VwLmJ5PSdzYW1wbGVfbmFtZScsIGRvLmxhYmVsPVQpCmBgYAoKCmBgYHtyfQpUU05FUGxvdChhbGwxMHgsIGdyb3VwLmJ5PSdzYW1wbGVfbmFtZTInLCBwdC5zaXplPTAuMSkKYGBgCgpgYGB7cn0KVFNORVBsb3QoYWxsMTB4LCBwdC5zaXplPTAuMSwgZ3JvdXAuYnk9J3Jlcy4wLjEnKQpgYGAKCgpgYGB7cn0KVFNORVBsb3QoYWxsMTB4LCBwdC5zaXplPTAuMSwgZ3JvdXAuYnk9J3Jlcy4wLjInKQpgYGAKCgpgYGB7cn0KVFNORVBsb3QoYWxsMTB4LCBwdC5zaXplPTAuMSwgZ3JvdXAuYnk9J3Jlcy4wLjUnLCBkby5sYWJlbD1UKQpgYGAKCmBgYHtyfQpUU05FUGxvdChhbGwxMHgsIHB0LnNpemU9MC4xLCBncm91cC5ieT0ncmVzLjAuOCcsIGRvLmxhYmVsPVQpCmBgYAoKYGBge3J9CkZlYXR1cmVQbG90KGFsbDEweCwgYygibkdlbmUiKSwgY29scy51c2UgPSBjKCJncmV5IiwiYmx1ZSIpKQpgYGAKCgpgYGB7cn0KRmVhdHVyZVBsb3QoYWxsMTB4LCBjKCJwZXJjZW50Lm1pdG8iKSwgY29scy51c2UgPSBjKCJncmV5IiwiYmx1ZSIpKQpgYGAKClRoZSBjbHVzdGVyIHdpdGggdGhlIGhpZ2hlciBwZXJjZW50YWdlIG9mIG1pdG9jaG9uZHJpYWwgZ2VuZSBleHByZXNzaW9uIHByb2JhYmx5IGNvbnRhaW5zIHN0cmVzc2VkIGNlbGxzLiBBbW9uZyB0aGUgdG9wIDEwIG1hcmtlciBnZW5lcyBmb3IgdGhpcyBjbHVzdGVyIGFyZSB0d28gZ2VuZXMgdGhhdCBjb2RlIGZvciBoZWF0IHNob2NrIHByb3RlaW5zIChIU1BBNSBhbmQgSFNQOTBCMSksIHNvIHRoaXMgY29uZmlybXMgdGhpcyBJIHRoaW5rLiAKCmBgYHtyfQpGZWF0dXJlUGxvdChhbGwxMHgsIGMoIm5VTUkiKSwgY29scy51c2UgPSBjKCJncmV5IiwiYmx1ZSIpKQpgYGAKCmBgYHtyfQpUU05FUGxvdChhbGwxMHgsIGdyb3VwLmJ5PSdkaWZmJywgcHQuc2l6ZT0wLjEpCmBgYAoKCmBgYHtyfQpUU05FUGxvdChhbGwxMHgsIGdyb3VwLmJ5PSd1Y3AxLmN0cmwnLCBwdC5zaXplPTAuMSkKYGBgCgpgYGB7cn0KVFNORVBsb3QoYWxsMTB4LCBncm91cC5ieT0ndWNwMS5uZScsIHB0LnNpemU9MC4xKQpgYGAKCmBgYHtyfQpUU05FUGxvdChhbGwxMHgsIGdyb3VwLmJ5PSdibWknLCBwdC5zaXplPTAuMSkKYGBgCgpgYGB7cn0KVFNORVBsb3QoYWxsMTB4LCBncm91cC5ieT0nYWdlJywgcHQuc2l6ZT0wLjEpCmBgYAoKCgpgYGB7cn0KI1RPRE86CiNhZGQgZ3JpZCB0U05FIHBsb3RzLCBvbmUgY2x1c3RlciBjb2xvcmVkIGF0IGEgdGltZSAocmVzLjAuNSBhbmQgcmVzLjAuOCkKCiNjIDwtIGFsbDEweEBtZXRhLmRhdGEkcmVzLjAuNQojY2x1c3Rlcl9uYW1lcyA8LSB1bmlxdWUoYykKCmBgYAoK